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INTRODUCTION 



Purpose of 
FORTRAN 



650 FORTRAN 



FORTRAN, which was originally developed for use on the IBM 
704, is a language closely resembling the language of mathematics 
and is designed primarily for scientific and engineering 
computation. One of the main purposes of FORTRAN is to 
provide the engineer or scientist with an efficient means of 
writing programs requiring a relatively short period of instruction 
and no detailed knowledge of the computer itself. 

650 FORTRAN, an automatic coding system, has been developed 
to reduce the number of machine passes required to transform 
FORTRAN statements to IBM 650 machine language, while 
retaining the optimizing features of a SOAP Assembly Program. 
This system may be substituted for FOR TRANSIT II (S). However, 
FORTRAN statements that have been written for the FOR TRANSIT 
II (S) system may have to be rewritten to conform to the 650 
FORTRAN system. (See "Requirements for Changing a Source 
Program from FOR TRANSIT II (S) to 650 FORTRAN, " page 5. ) 

The 650 FORTRAN system consists of two programs: The compiler - 
650 FORTRAN - accepts FORTRAN statements (the source program) 
and compiles 650 instructions in symbolic (SOAP II*) language. 

The assembler - SOAP-PACKAGE - is a modified version of 
SOAP II which includes certain built-in subroutines. It functions 
in the following manner: 



1. Punches out in five instructions-per-card format, the routine 
for loading the object program and all the built-in subroutines 
of the SOAP-PACKAGE deck. 

2. Assigns optimum locations to the symbolic instructions 
generated by the compiler and punches out, in machine language, 
the object program in five instructions-per-card format. 

As illustrated in the overall schematic representation of the 650 
FORTRAN system (see Figure 1), two passes on the IBM 650 are 
required to process a source program from FORTRAN statements 
to machine language. 



*SOAP II, Symbolic Optimal Assembly Program for the IBM 650 
Data Processing System (see SOAP II Programmer's Reference 
Manual, form C28-4000). 



Machine 
Requirements 



Organization 
of Manual 



650 FORTRAN 
Statements 



For the compilation and assembly phases of the 650 FORTRAN 
system, the following equipment is required: 

Basic IBM 650 

Index Registers 

Alphabetic Device 

Special Character Device, Group II 

In addition, the Floating Point Arithmetic Device is required to 
run the object program. 

Programming the IBM 650 using the 650 FORTRAN system requires 
a knowledge of the FORTRAN language, but little detailed knowledge 
of 650 machine operations. Accordingly, the first and largest 
part of this manual is devoted to a description of the FORTRAN 
language and the rules governing its use in the 650 FORTRAN 
system. Subsequent sections of the manual deal with the usage of 
subroutines, operating instructions for the compilation and 
assembly phases, and information about running the object program. 

A source program consists of a sequence of FORTRAN statements. 
As each statement is read into the 650, the 650 FORTRAN system 
will analyze and interpret it. Based on the configuration of 
characters making up the statement, instructions are compiled 
and assembled into an object program. 

The FORTRAN statements which are permissible in writing 650 
FORTRAN are: 

a = b (Arithmetic Statement) 
GO TOn 

GOTO(n 1 ,n 2 , n m ), i 

IF (a) n 1 ,n 2 ,n 3 

PAUSE or PAUSE n 

STOP or STOP n 

DO n i = m^, m 2 

DO n i = m-p m 2 , m 3 

CONTINUE 

READ n, list 

PUNCH n, list 

DIMENSION v v v 2 , V3, . . . v n 

END 



As an example of the general appearance and some of the properties 
of a 650 FORTRAN program, the following brief program is 
illustrated and explained. 
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(if any) 



Figure 1 



Example of a 
650 FORTRAN 
Program 



c-* 



0000 



0000 



0000 



0000 



0000 
0000 



0010 



Comparibility of 
650 FORTRAN with 
704 FORTRAN 



FORTRAN STATEMENT 



PROGRAM FOR FINDING THE LARGEST VALUE 



ATTAINED BY A SET OF NUMBERS 
DIMENSION A (10) 



BIGA = A(l) 



DO 20 I = 2, 10 



IF (BIGA - Ad) 10, 20, 20 



BIGA = A (I) 



CONTINUE 



Note: Card columns 1-6 must not be left blank. 



Punch zeros to fill out these columns. 



This program examines the set of n numbers a { (i = 1, . . . 10) and 
stores the largest value attained in BIGA. It begins (after a 
comment describing the program) by replacing BIGA by a v Next 
the DO statement causes the succeeding statements to and including 
statement 20 to be carried out repeatedly, first with i = 2, then 
with i = 3, etc. , and finally with i = 10. During each repetition 
of this loop the IF statement compares BIGA with a t ; if BIGA is 
less than a { , statement 10, which replaces BIGA by a it is executed 
before continuing. 

As stated, the FORTRAN system was originally designed for a 
larger machine than the 650. As a result, only twelve of the thirty- 
two statements found in the IBM 704 FORTRAN Reference Manual, 
C28-6003, are present in the 650 FORTRAN system. In addition, 
certain other restrictions to the FORTRAN language have been 
added. However, none of these restrictions make a source program 
written in 650 FORTRAN incompatible with the 704 FORTRAN 
system. For example, 704 FORTRAN variables can be made up of 
from one to six characters whereas 650 FORTRAN requires that 
variables be made up of from one to five characters. 

A statement number of all zeros (interpreted by the 650 FORTRAN 
system as a blank statement number) will be identified by the 704 
FORTRAN system as a unique statement number. Therefore, if 
650 FORTRAN statements are to be processed on the 704, the 
statements containing all zeros in columns 2-5 must be repunched 
with these columns either left blank or assigned a significant unique 
statement number. 

It should be noted, that in a few instances FORTRAN restrictions 
have been relaxed to take advantage of certain features of the 650; 
specific information regarding such modifications is included at 
the applicable places in the following pages for the benefit of users 
concerned with compatibility. 



Requirements for 
Changing a Source 
Program from FOR 
TRANSIT II (S)ro 
650 FORTRAN 



Additional information concerning the writing of FORTRAN 
statements may be obtained by referring to the IBM General 
Information Manual, "Programmer's Primer for FORTRAN, 
Automatic Coding System for the IBM 704 Data Processing System, " 
F28-6019. 

In order to make a FORTRAN program written for the FOR TRANSIT 
II (S) system compatible with the 650 FORTRAN system, the 
following modifications must be made. 

(1) Delete all EQUIVALENCE statements. 

(2) Delete all Function Title cards. 



(3) Statement cards must not be blank in columns 1-6 . 

(4) Expressions to the right of the = sign can contain only one mode, 
fixed or floating point. 



Compatibility of 
650 FORTRAN with 
7070 FORTRAN 



(5) The instruction compiled for a STOP statement in FOR TRANSIT 
II (S) allows continuation of the program following the halt by 
depressing the Program Start key. In 650 FORTRAN, however, 
the instruction'compiled does not permit continuation of the 
program and, therefore, it may be necessary to substitute 
PAUSE statements for STOP statements in FOR TRANSIT II (S) 
source programs. 

(6) The conditional PUNCH statement in FOR TRANSIT II (S), is not 
recognized as such by 650 FORTRAN. That is, a PUNCH 
statement which is not numbered will be compiled in 650 FORTRAN 
as a normal punch statement and subsequent punching in the 
object program will not be controlled by the sign switch on the 
console. Therefore, it may be necessary to remove the punch 
statements that were intended originally to be used only as a 
diagnostic aid. 

When a source program written in 650 FORTRAN is to be processed 
on an IBM 7070 system using 7070 FORTRAN, certain changes will 
be required in the input and output statements of the source program. 

One of these changes is the addition of FORMAT statements which 
are required to define input and output data fields. 

The other change, which is directly associated with the use of the 
FORMAT statements, is that the READ and PUNCH statements 
must specify the FORMAT number to be used with the particular 
input or output statement. 



The use of FORMAT statements in 650 FORTRAN to be processed 
on the IBM 650 is not allowed. 

Program Decks Requests for program decks for the 650 FORTRAN system should 

be addressed to: 

IBM 650 Program Librarian 

International Business Machines Corporation 

590 Madison Avenue 

New York 22, New York 



CHAPTER I - WRITING THE SOURCE PROGRAM 



Components of a 

FORTRAN 

Statement 



Constants, 
Variables and 
Subscripts 



Writing FORTRAN statements requires a knowledge of the following: 

1. The components of a FORTRAN statement — i. e. , the symbols 
and characters which may appear within a FORTRAN statement, 
and the rules that must be followed in using each of these 
components. 

2. The twelve 650 FORTRAN statements — the purpose and function 
of each FORTRAN statement in the 650 FORTRAN system. 

This chapter treats each of the above in detail. 

As an example, consider the algebraic formula, 

-4AC ]/2A 



ROOT = 



-BWB 



As an arithmetic FORTRAN statement, the above algebraic formula 
would appear as 

ROOT = (-B+ SQRTF (B**2 - 4. 0*A*C)) / (2. 0*A) 

The entire arithmetic FORTRAN statement above means, "evaluate 
the expression on the right side of the equal sign and make this the 
value of the variable on the left. " 

By coding each letter, number and symbol in the sample FORTRAN 
statement, each component can be defined by the corresponding code 
number as shown in Figure 2. 

The component parts that make up FORTRAN statements are 
explained in two groups: 

1. Constants, variables and subscripts 

2. Functions and expressions. 

Constants 

Two types of constants are permissible: fixed point (numbers 
written without a decimal point) and floating point (numbers written 
with a decimal point). 



ROOT = (- B +.SQRTF, (B * * 2 -.4. ,*' A * C)) 



12 1 



V. 



2 1 3b 1 3a 1 2 1 2 
5 




Key 



Name of Component 



OPERATION SYMBOLS: 

* Denotes Multiplication 
** Denotes Exponentiation; e.g. , A**3 means A~ 
+ Denotes Add 

Denotes Subtract 
/ Denotes Divide 



VARIABLES (Floating Point) 



CONSTANTS: 

a. Floating Point 

b. Fixed Point 



FUNCTION NAME denotes a subroutine which computes 
the square root of the argument enclosed in parentheses 
This particular routine must be incorporated by 
the user. 



ARGUMENT of the Function SQRTF 



EXPRESSION 



NOTE: Variables may also be in fixed point even though none appear 
in this example. 



Figure 2 



Fixed Point Constants 



GENERAL FORM 


EXAMPLES 


1 to 10 decimal digits. The plus is 
optional. However, a minus sign 
must be stated if the constant is to 
be negative. 


3 

+1 
-28987 



NOTE: The magnitude of fixed point constants in the 704 FORTRAN 
system must be less than 32768. 650 FORTRAN users must comply 
with this restriction if compatibility is desired. 

Floating Point Constants 



GENERAL FORM 


EXAMPLES 


1 to 8 significant digits with a decimal 
point at the beginning, at the end, or 
between two digits. A preceding plus 
is optional. However, a minus sign 
must be stated if the constant is to be 
negative. A decimal exponent (a one 
or two digit fixed point constant) 
preceded by an E may follow. The 
exponent may be signed. 


17. 

5.0 

-. 0003 

5. 0E3 (=5. X 10 3 ) 

5. OE+3 (=5. x 10 3 ) 

5. OE-7 (=5. x 10~ 7 ) 

5. 0E13 (=5. x 10 13 ) 



The floating point number will appear in the object program as a 
normalized single-precision number in the form . XXXXXXXXPP, 
where PP is a power of 10 with 50 added. The decimal point is 
assumed to be at the left of the high-order non-zero digit of the 
number. Thus a floating point number can assume any value from 
+ . lOOOOOOOxlO" 50 to 99999999xl0 49 . The values in the examples 
above would appear in the machine as follows: 



Input 
Value 



Machine 
Word 



17 
5.0 

-. 0003 
5. 0E3 
5. OE+3 
5. 0E-7 
5. 0E13 



1700000052 

5000000051 

-30000000047 

5000000054 

5000000054 

5000000044 

5000000064 



NOTE: The magnitude of floating point constants in the FORTRAN 
system for the 704 must lie between the limits of 10~ 38 and 10 38 . 
650 FORTRAN users must comply with this restriction if 
compatibility is desired. 

Variables 

Two types of variables are also permissible: fixed point (restricted 
to integral values) and floating point. Fixed point variables are 
distinguished by the fact that their first character is I, J, K, L, 
M, or N. 

Fixed Point Variables 



GENERAL FORM 


EXAMPLES 


1 to 5 alphabetic or numerical 
characters (not special characters) 
of which the first is I, J, K, L, M, 

or N. 


I 

M2 

JOBNO 

.... 



Floating Point Variables 



GENERAL FORM 


EXAMPLES 


1 to 5 alphabetic or numerical 
characters (not special characters) 
of which the first is alphabetic but 
not I, J, K, L, M, or N. 


A 

B7 

DELTA 



NOTE: For compatibility with 704 FORTRAN, the name of a 
variable must not be the same as the name of any function used in 
the program after the terminal F of the function name has been 
removed. 

Subscripts and Subscripted Variables 

A variable can be made to represent any member of a one- or 
two-dimensional array of quantities by appending to it one or two 
subscripts; the variable is then a subscripted variable. The 
subscripts are fixed point quantities whose values determine 
which member of the array is being referenced. 
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Subscripts 



GENERAL FORM 


EXAMPLES 


Let v represent any fixed point 
variable (I in example) and c (or c') 
any unsigned fixed point constant 
(numbers 2 and 3, respectively, in 
example). Then a subscript is an 
expression of one of the forms 

V 

c 

v + c or v - c 

c*v 

c*v+c' or c*v-c' 


I 

3 

1+ 2 

I - 2 

3 * I 

3*1+2 

3*1-2 



The variable v must not itself be subscripted. 
Subscripted Variables 



GENERAL FORM 


EXAMPLES 


A fixed or floating point variable 
followed by parentheses enclosing 
one or two subscripts separated by 
commas. 


A (I) 
K(3) 
BETA (5*J-2,K+2) 



NOTE: 1. Because a variable ending with the letter F to the 

immediate left of an open parenthesis is identified as 
a function, no subscripted variable may end in F. 

2. A maximum of 20 subscripted variables may be used 
in any one program. However, there is no limit on the 
number of non- sub scripted variables that may be used. 

For each variable that appears in subscripted form, the size of the 
array, i. e. , the maximum values which its subscripts can attain, 
must be stated in a DIMENSION statement (page 25) preceding the 
first appearance of the variable. 

The minimum value which a subscript may assume in the object 
program is +1. 
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Functions and 
Expressions 



NOTE: A two-dimensional array A will, in the object program, 
be stored sequentially in the order' A^j., A 2 p . . . , A^ ^, A^ £> 
A 2 2» •■• • »^m 2» • • • »-^m n* Thus it is stored "columnwise, " 
with the first of its subscripts varying more rapidly. One- 
dimensional arrays are of course stored sequentially. 

Of the twelve 650 FORTRAN statements, it is the arithmetic 
formula which defines a numerical calculation that the object 
program is to do. A FORTRAN arithmetic formula resembles a 
conventional arithmetic formula. It consists of the variable to 
be computed y followed by an - sign, followed by an arithmetic 
expression. 

For example, the arithmetic formula, 

Y = A- SINF (B-C) 

means "replace the value of y by the value of a-sin(b-c). " 

Functions 

As in the above example, a FORTRAN expression may include the 
name of a function (e.g. , the sine function SINF), provided the 
routine, for evaluating the function is available to the 650 FORTRAN 
sy stem. These routine scan be either SOAP- PACKAGE (built-in) 
subroutines or subroutines added by the user. 



GENERAL FORM 


EXAMPLES 


The name of the function is 4 or 5 


SINF (A+B) 


alphabetic or numerical characters 


SQRTF (SINF(A)) 


(not special characters), of which 


XABSF (3. *X) 


the last must be F and the first 




must be X if and only if the value of 




the function is to be fixed point. The 




name of the function is followed by 




parentheses enclosing the arguments 




(which may be expressions). 


/ 



Expressions 

An expression is any sequence of constants, variables (subscripted 
or not subscripted), and functions, separated by operation symbols* 
commas, and parentheses >so as to form' a meaningful mathe- 
matical expression. 
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However, one special restriction does exist. A FORTRAN 
expression may be either a fixed or a floating point expression, 
but it must not be a mixed expression. This does not means 
that a floating point quantity cannot appear in a fixed point 
expression, or vice versa, but rather that a quantity of one 
mode can appear in an expression of the other mode only in 
certain ways. Briefly, a floating point quantity can appear in a 
fixed point expression only as an argument of a function; a fixed 
point quantity can appear in a floating point expression only as 
an argument of a function, as a subscript, or as an exponent. 

Rules for Forming Expressions 

By repeated use of the following rules, all permissible expressions 
may be derived. 

1. Any fixed point (floating point) constant, variable, or sub- 
scripted variable is an expression of the same mode. Thus 3 
and I are fixed point expressions, and ALPHA and A(I, J) are 
floating point expressions. 

2. If SOMEF is some function of n variables, and if E, F, . . . , H 
are a set of n expressions of the correct modes for SOMEF, 
then SOMEF (E, F, . . . , H) is an expression of the same mode 
as SOMEF. 

3. Two operation symbols may not appear in sequence. If E is an 
expression, and if its first character is not + or -, then +E and 
-E are expressions of the same mode as E. Thus -A is an 
expression, but +-A is not. 

4. If E is an expression, then (E) is an expression of the same 
mode as E. Thus (A), ((A)), (((A))), etc. are expressions. 

5. If E and F are expressions of the same mode, and if the first 
character of F is not + or -, then 

E + F 

E - F 

E * F 

E / F 

are expressions of the same mode. Thus A-+B and A/+B are 
not expressions. 



13 



6. If E and F are expressions, and F is not floating point unless 
E is too, and the first character of F is not + or -, and neither 
E nor F is of the form A **B, then 

E ** F 

is an expression of the same mode as E. Thus A**(B**C) is 
an expression, but I** (B **C) and A**B**C is not. 

Similarly in the case of consecutive divisions, the order of 
operations must be specified by appropriate use of parentheses. 

Thus A/B/C must be written as (A/B) /C or A/(B/C) whichever 
is intended. 

Hierarchy of Operations 

When the hierarchy of operations in an expression is not explicitly 
specified by the use of parentheses, it is processed by FORTRAN 
in the following order (moving from innermost operations to 
outermost). 

Exponentiation, then; 
Multiplication and Division, then; 
Addition and Subtraction. 

For example, the expression 

A+B/C+D**E*F-G 
will be taken to mean 

A+(B/C)+(D E *F) -G 

When the sequence of consecutive operations of the same hierarchal 
level (e. g. , consecutive multiplications) is not completely specified 
by parentheses, the order of operations is assumed to be from left 
to right. 

Verification o f Correct Use of Parentheses 

The following procedure is suggested for checking that the paren- 
theses in a complicated expression correctly express the desired 
operations. 

Label the first open parenthesis "1"; thereafter, working from left 
to right, increase the label by 1 for each open parenthesis and 
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Preparation oLa 

FORTRAN 

Statement 



decrease it by 1 for each closed parenthesis. The label of the last 
parenthesis should be 0; the mate of an open parenthesis labeled 
n will be the next parenthesis labeled n-1. 

The maximum number of pairs of parentheses that may appear in 
any one arithmetic expression is 25. 

Certain limitations and precautions must be observed in preparing 
a FORTRAN statement. 

Because 650 FORTRAN contains no program error-detection tests, 
special care must be taken in writing the statements in the form 
the user wishes the program to function. However, there are 
utility programs available such as FORSCAN*, which edit each 
source program statement and determine whether it has been 
correctly written. The FORSCAN program may be obtained from 
the IBM 650 Program Librarian (see page 6 for address). 

Rules for Statements and Statement Number s 

The 650 FORTRAN program will accept valid statements of up to a 
maximum of 125 characters exclusive of blanks. Statements need 
not be in any numerical order nor do all statements need statement 
numbers. However, cross-referencing within a program is 
accomplished by giving statement numbers to those statements 
referred to by other statements. 

Statement numbers can be any unique unsigned fixed point constants, 
from 0001 to 9999 and may appear in any sequence. Thus the 
numbering of statements as shown below would be acceptable in a 
program. 



COMMENT 


» 




STATEMENT 
NUMBED 

I 0001 


7 S 


j 0000 






| 0002 






j 0005 






| 0003 






j 0000 






| 0004 






| 0101 






| 0007 













* Contributed by Messrs. C.A. Irvine & M. A. Smith, 
Continental Oil Company, Ponca City, Oklahoma. 
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THE TWELVE 650 FORTRAN STATEMENTS 



Arithmetic 
Formula 



GENERAL FORM 


EXAMPLES 


"a=b" where a is a variable (sub- 
scripted or non-subscripted) and 
b is an expression. 


A(I) = B(I) + SINF(C(I)) 



The = sign in an arithmetic formula has the meaning "is to be 
replaced by. " An arithmetic formula is therefore a command to 
compute the value of the right-hand side and to store that value in 
the storage location designated by the left-hand side. 

The result will be stored in fixed or floating point form according 
as the variable on the left-hand side is a fixed or floating point 
variable. 

If the variable on the left is fixed point and the expression on the 
right is floating point, the result will first be computed in floating 
point and then truncated and converted to a fixed point integer. 
Thus, if the result is + 3. 569, the fixed point number stored will 
be + 3, not + 4. 

No arithmetic statement may contain more than nine different 
constants. Two floating point numbers having the same equivalent 
value are not considered "different. " For example, 4. and . 4E1 
have the same equivalent value and thus would not be considered 
different. Signs are not considered in determining difference. 

Examples of Arithmetic Formulas 



FORMULA 


MEANING 


A = B 


Store the value of B in A. 


I = B 


Truncate B to an integer, convert to fixed 




point, and store in I. 


"A = I 


Convert I to floating point and store in A. 


1 = 1+1 


Add 1 to I and store in I. This example 




illustrates the point that an arithmetic formula 




is not an equation but a command to replace 




a value. 


A = 3. 0*B. 


Replace A by 3B. 
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Control 
Statements 



The second class of FORTRAN statements is the set of seven 
control statements, which enable the programmer to state the flow 
of his program. 



Unconditional GO TO 



GENERAL FORM 



"GO TO n" where n is a statement 
number. 



EXAMPLES 



GO TO 3 



This statement causes transfer of control to the statement with 
statement number n. 

Computed GO TO 



GENERAL FORM 


EXAMPLES 


"GOTO (n l9 n 2 ,...,n m ), i" 

where n-^, n 2 n m are 

statement numbers and i is a 
non- subscripted fixed point 
variable. 


GOTO (30,40,50,60),! 



If at the time of execution the value of the variable i is j , then 
control is transferred to the statement with statement number n-j. 
Thus, in the example, if I has the value 3 at the time of execution, 
a transfer to statement 50 will occur. 

This statement is used to obtain a computed many-way fork. A 
maximum of 25 branches may be used in any one of these statements. 



IF 



GENERAL FORM 


EXAMPLES 


"IF (a) n^,n2,n3" where a is any 
expression and n^,n 2 ,n3 are state- 
ment numbers. 


IF (A(J,K)-B)10, 20,30 
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Control is transferred to the statement with statement number 
ni,n2, or n3 according as the value of the expression a is less than, 
equal to, or greater than zero. In the example, control will be 
transferred to statement 10, 20 or 30 according as the value of 
the expression, (A(J,K)-B), is less than, equal to, or greater 
than zero. 

PAUSE 



GENERAL FORM 


EXAMPLES 


"PAUSE" or "PAUSE n" where n is 
any unsigned fixed point constant 
less than or equal to 1999. 


PAUSE 
PAUSE 1234 



A PAUSE statement compiles as a stop command. During 
execution of the object program, the machine will halt with the 
number n shown in the console address lights. (If n is not stated, 
it is taken to be zero. ) A subsequent depression of the Program 
Start key causes the program to resume at the point in the object 
program corresponding to the next FORTRAN statement. 



STOP 



GENERAL FORM 


EXAMPLES 


"STOP" or "STOP n" where n is any 
unsigned fixed point constant less 
than or equal to 9999. 


STOP 
STOP 1234 



A STOP statement compiles as a stop command. During execution 
of the object program, the machine will halt in such a way that 
pressing the Program Start key will have no effect. Therefore, 
in contrast to the PAUSE, it is used where a get -off -the -machine 
stop, rather than a temporary stop, is desired. The number n is 
shown in the address field of the console display lights. (If n is 
not stated, it is taken to be zero. ) 
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DO 



GENERAL FORM 


EXAMPLES 


"DO n i = m ly m 2 " or "DO n i = 


DO 30 I = 1, 10 


m 1} m2,m3" where n is a state- 


DO 30 I = 1, M, 3 


ment number, i is a non- sub scripted 





fixed point variable, and m 1( m 2 , 




m 3 are each either an unsigned fixed 




point constant or a non- sub scripted 




fixed point variable. If m 3 is not 




stated it is taken to be 1. 




NOTE: If m-^, m 2 , m 3 are constants, 




they may be no more than four digits 




long. 





The DO statement is a command to execute repeatedly the state- 
ments which follow, up to and including the statement with 
statement number n. The first time the statements are executed 
with i = mj_. For each succeeding execution i is increased by 1113. 
After they have been executed with i equal to the highest of this 
sequence of values which does not exceed m 2 , control passes to 
the statement following the last statement in the range of the DO. 

Example of DO 

Suppose, for example, that control has reached statement 10 of 
the program 



10 


DO 11 I = 1, 10 


11 


A (I) = I*N(I) 


12 





The range of the DO is statement 11, and the index is I. The DO 
sets I to 1 and control passes into the range. 1N(1) is computed, 
converted to floating point, and stored in A(l). Now, since 
statement 11 is the last statement in the range of the DO and the 
DO is unsatisfied, I is increased to 2 and control returns to the 
beginning of the range, statement 11. 2N(2) is computed and 
stored in A(2). This continues until statement 11 has been 
executed with I = 10. Since the DO is satisfied, control now 
passes to statement 12. 



19 



DOs within DOs — Among the statements in the range of a DO 
may be other DO statements. When this is so, the following rule 
must be observed: 

Rule: If the range of a DO includes another DO, then all of the 
statements in the range of the latter must also be in the range of 
the former. A set of DOs satisfying this rule is called a nest of 
DOs. A nest must not exceed a depth of four DOs. 

Transfer of Control and DOs — • Transfers of control by IF-type 
or GO TO-type statements are subject to the following rule: 

Rule: No transfer is permitted into the range of any DO from 
outside its range. Thus, in the configuration below 1, 2 and 3 
are permitted transfers, but 4, 5 and 6 are not. 



DO 




EXCEPTION — ■ There is one situation in which control can be 
transferred into the range of a DO from outside its range. Suppose 
control is somewhere in the range of one or more DOs, and that 
it is transferred to a section of a program, completely outside the 
nest to which the DOs belong, which makes no change in any of 
the indices or indexing parameters (m's) in the nest. Then 
after the execution of this section of program, control can be 
transferred back to the "same part of the nest" from which it 
originally came. (By "same part of the nest" is meant that no 
DO, and no statement which is the last statement in the range of 
a DO, shall lie between the exit point and re-entry point. ) This 
provision makes it possible to exit temporarily from the range of 
a DO to execute a subroutine. 

Restriction on Calculations in the Range of a DO — Only one type 
of statement is not permitted within the range of a DO loop, 
namely any statement which redefines the value of the index or 
of any of the indexing parameters (m's). In other words, the 
indexing of a DO loop must be completely set before the range is 
entered. 
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The first statement in the range of a DO must be executable. 
CONTINUE 



GENERAL FORM 


EXAMPLES 


"CONTINUE" 


CONTINUE 



CONTINUE is a dummy statement and provides no instructions in 
the object program. A frequent use of it is as the last statement 
in the range of a DO to provide a transfer address for IF and 
GO TO statements. As an example of a program requiring a 
CONTINUE statement, consider the table search program: 

10 DO 12 I = 1, 100 

11 IF (ARG - VALUE(I)) 12, 20, 12 

12 CONTINUE 
13 

This program will examine the 100-entry VALUE table until it 
finds an entry equal to ARG. As long as an equal entry is not 
found, statement 11 (IF) will transfer to statement 12 (CONTINUE). 
Statement 12 will in turn cause the DO loop to be repeated. When 
the equal entry is found, the program will exit to statement 20 
with the successful value of I available for fixed point use. 
However, if no entry in the table equals ARG, an exit to statement 
13 will occur. The program 

10 DO 11 I = 1, 100 

11 IF(ARG - VALUE(I)) 11, 20, 11 
12 

would not work since, as stated in the next section, DO sequencing 
does not occur if the last statement in the range of a DO is a 
transfer. 

Summary of FORTRAN Sequencing — The precise laws which 
govern the order in which the statements of a FORTRAN program 
will be executed, and which have been left unstated up to this 
point, may be stated as follows: 

1. Control begins at the first executable statement. 

2. If control is at statement S, then control will next go to the 
statement dictated by the normal sequencing properties of S. 
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EXCEPTION. If, however, S is the last statement in the range 
of one or more DOs which are not yet satisfied, and if S is not 
a transfer (IF or GO TO statement), then the normal sequencing 
of S is ignored and DO- sequencing occurs, i. e. , control will 
next go to the first statement of the range of the nearest of 
the unsatisfied DOs, and the index of that DO will be raised. 

The statement DIMENSION, which is discussed in this 
chapter is a non-executable statement, and in any question of 
sequencing is simply to be ignored. 



Input-Output 
Statements 



The 650 FORTRAN system provides for input and output of data by 
means of punched cards using the FORTRAN statements READ 
and PUNCH. 



From one to seven ten-digit words can be read or punched on a 
single card starting at column 1 and ending with column 70. 
Reading or punching of data will begin at the left and continue 
under the control of the READ or PUNCH statement until all the 
seven words of data have been processed. 

As many cards as necessary can be read or punched providing 
there is no break in the data being processed. 

The last data card can contain from one to seven ten-digit words. 
If less than seven words are required, the remaining word(s) may 
be left blank. 

NOTE: A READ statement calling for only five words of data will 
ignore the remaining last two words at the right side of 
the card. 

READ 



GENERAL FORM 


EXAMPLES 


"READ, LIST" or "READ n, LIST" 
where n may be a 1-4 digit fixed 
point constant and LIST is as 
described below. 

NOTE: The comma placed after 
"READ" and "READ n" is absolutely 
necessary for the operation of the 
program and must never be omitted. 


READ, A, B, C 
READ 1, A, B, C 
READ 52, X, Y 
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The READ statement causes the object program to read card after 
card until the entire list has been brought in and stored. The n 
portion of the READ statement is optional but must be included if 
compatibility with the FORTRAN systems for the 704 and 7070 
is desired. 

PUNCH 



GENERAL FORM 


EXAMPLES 


"PUNCH, LIST" or "PUNCH n, 


PUNCH, ROOT1, ROOT 2 


LIST" where n may be a 1-4 digit 


PUNCH 1, ROOT 


fixed point constant and LIST is as 


PUNCH 3 2, ARRAY 


described below. 


PUNCH 1, ELMNT (2,5) 


NOTE: The comma placed after 




"PUNCH" and "PUNCH n" is 




absolutely necessary for the 




operation of the program and 




must never be omitted. 





The PUNCH statement causes the object program to punch card 
after card until the entire list has been punched. The n portion of 
the PUNCH statement is optional, but must be included if 
compatibility with the FORTRAN systems for the 704 and 7070 is 
required. 

LIST — Both the READ and PUNCH statements call for the trans- 
mission of information and include a list of the quantities to be 
transmitted. The list is ordered, and its order must be the same 
as the order in which the words of information exist (for input), 
or will exist (for output), in the cards. Below are the various 
forms a list may take and the types of variables that may be placed 
in a list. (Only variables, and not constants, may be listed. ) 



VARIABLE 



EXPLANATION 



Non-subscripted Variables 



READ, A 



The name of a non- subscripted 
variable. 



Entire Arrays 



PUNCH, B 



An entire array specified by 
giving only the name of the array. 
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VARIABLE 



PUNCH, B (Con't) 



EXPLANATION 

(The size of the array previously- 
must have been given in a 
DIMENSION statement. ) The 
array will be punched (or read) 
column-wise in its natural order. 



READ,C(2) 



Si ngle Elements of Arrays 

A single element of a one-dimen- 
sional array, with the subscript 
in absolute form. 



PUNCH,D(1,3) 



A single element of a two-dimen- 
sional array, with both subscripts 
in absolute form. 



READ,E(I) 



A single element of a one-dimen- 
sional array, with the subscript 
in variable form. 



PUNCH, F(I, 5) 



PUNCH, H(I,K) 



A single element of a two-dimen- 
sional array, with one subscript 
in variable form and the other 
subscript in absolute form. 

A single element of a two-dimen- 
sional array, with both subscripts 
in variable form. 



Groups of Elements of Arrays Using Indexing 
READ, (P(I),I = m 1 ,m 2 ,m 3 ) 

A group of elements of a one-dimensional array using a 
variable subscript with a set of values to indicate the 
particular elements desired. This specifies every m 3 th 
element of the P array beginning with m^ and not 
exceeding m 2 . 

READ, (Q(1, 10), I = m x , m 2 , m 3 ) or 
READ, (R(2,J),J = m 1 ,m 2 ,m 3 ) 

A group of elements of a two-dimensional array with one 
subscript in absolute form and the other in variable form 
with a set of values. The absolute subscript indicates 
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Specification 
Statements 



the column (or row) of the elements; the variable subscript, 
with its set of values, specifies the elements within the 
column (or row). 

PUNCH, (S(K, L), K=m 1( m 2 , m 3 ) or 
READ, (T(I, L), L=m 1 , m 2 , m 3 ) 

A group of elements of a two-dimensional array with both 
subscripts in variable form and a set of values for one 
subscript. The variable without a set of values indicates 
the column (or row) of the elements; the subscript with 
the set of values specifies the elements within the column 
(or row). 

PUNCH, ((V(J,K),J=m 1 ,m 2 ,m3),K=m 1 ,m2,m 3 ) 

A group of elements of a two-dimensional array with both 
subscripts in variable form and a set of values for each 
subscript. 

NOTE: In "Groups of Elements of Arrays Using Indexing, " 
m-L is the starting value of a subscript, m 2 is the highest 
value of the subscript, and m 3 is the amount m^ is increased 
each time until m 2 is reached. m 1 ,m 2 ,m 3 are each either 
an unsigned fixed point constant or a non-subscripted fixed 
point variable. If m 3 is not stated, it is taken to be 1. 

There is no limit as to the number of variables that may be 
in a list, but adjacent variables in the list must be 
separated by a comma. 

More than one variable per list may be indexed; however, 
each indexed variable must have its own indexing para- 
meters (m's). 

DIMENSION 



GENERAL FORM 


EXAMPLES 


"DIMENSION v x , v 2 , v 3 , . . . v n " where 
each v n is a variable subscripted 
with 1 or 2 unsigned fixed point 
constants. Any number of v n 's may 
be given. 


DIMENSION A(10), 
B(5, 15),C(3, 4) 
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The DIMENSION statement provides the information necessary 
to allocate storage in the object program for arrays of quantities. 

Every variable which appears in a source program in subscripted 
form must appear in a DIMENSION statement, and the DIMENSION 
statement must precede the first appearance of the variable. In 
the DIMENSION statement are given the dimensions of the array; 
in the executed program any subscripted variable referring to the 
array must never take on values larger than those dimensions. 

Thus the example states that B is a two-dimensional array and that 
the subscripts of B will never exceed 5 and 15; it causes 75 words 
of storage to be set aside for the B array. 

A single DIMENSION statement may be used to dimension any 
number of arrays. However, no one dimension given in the 
statement may be greater than three digits. For example, D(3001) 
is not permitted because the dimension is more than three digits. 

WARNING : No error checking is done for incorrectly written 
statements. The foregoing rules must be observed exactly. 
Punctuation marks, parentheses, etc. must never be omitted. 

END 



GENERAL FORM 


EXAMPLES 


"END" 


END 



An END statement is required as the last statement of a source 
program. 

An end of job halt 01 0000 8000 is always compiled from the END 
statement, and therefore END should never be the last statement 
in a DO loop. 

Transfers to the END statement should be made only if it is to be 
an end-of-job indication. 
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Summary of 

Limitations 

for Writing Source 

Programs 



Limitations have been given throughout this chapter and are listed 
below for review and reference. 



Condition 


Limits 


Statement length (characters) 


125 exclusive of blanks 


Maximum number of decimal 
digits in a fixed point constant 


10 


Maximum number of decimal 
digits in a floating point 
constant 


8 


Maximum number of fixed and 
floating point constants in any- 
one statement 


9 


Maximum number of characters 
for a fixed point variable 


5 alphabetic or numerical (not 
special) characters of which the 
first is I, J, K, L, M or N 


Maximum number of characters 
for a floating point variable 


5 alphabetic or numerical (not 
special) characters of which the 
first is alphabetic but is not 
I, J, K, L, M or N 


Maximum number of sub- 
scripted variables in one 
program 


20 (none may end in F) 


Minimum value of a subscript 


+1 


Mode 


No mixed modes (see page 13) 


Maximum number of branches 
in a computed GO TO 
statement 


25 


DO statements 


Indexing parameters (m's) may 
not exceed four digits if they 
are constants 


Number of DOs within DOs 


Nests may not exceed depth of 
four DOs 


DIMENSION statement 


No one dimension may be greater 
than three digits 


Maximum number of paren- 
theses in one statement 


25 pairs 


Number of arguments for a 
built-in subroutine 


1 
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CHAPTER II- USAGE OF SUBROUTINES 



650 FORTRAN 
Subroutines 



The Assembly phase of the 650 FORTRAN system contains several 
built-in routines for evaluating functions. These subroutines may 
be called on by the user's program. Listed below are the eight 
built-in subroutines which may be used: 



Mode 
Argument Function 

Floating Floating 



Fixed 



Fixed 



Subrt. 

Name Purpose of the Subroutines 

ABSF Taking the absolute value of a 
floating point number 

XABSF Taking the absolute value of a 
fixed point number 

XFIXF Fixing floating point numbers 

FLOTF Floating fixed point numbers 

LOGF Log 10 x 

EXPF Raising 10 to a floating point 
power (Antilogarithm) 

LOGEF Log e x 

EXPEF Raising e to a floating point 
power (Exponential) 



WARNING: The user must not use any of the built-in subroutine 
names for his own subroutines. 

Because of non-standard entry conditions, the following built-in 
subroutines are for internal use only and are not available to the 
user: 



Floating 


Fixed 


Fixed 


Floating 


Floating 


Floating 


Floating 


Floating 


Floating 


Floating 


Floating 


Floating 



XPOWF 
POWIF 



POW2F 
READF 



PNCHF 



Removing 650 

FORTRAN 

Subroutines 



By using a SOAP II "BLA" block availability card, locations of 
some built-in subroutines that are not used by the object program 
(see table on the following page) can be made available during the 
assembly phase of 650 FORTRAN. The procedure required to 
delete these unused built-in subroutines is as follows: (1) prepare 
a BLA card with the locations used by the subroutine(s) to be 
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Adding Function 
Subroutines 



dropped (see table below), (2) place the BLA card(s) in front of 
first user's subroutine, or if no subroutines have been added by 
the user, in front of the compiled program. 





Subrt. 


Consecutive 


Explanation 


Name 


Locations Used 


No exponentiation FLOAT FIX 


POW2F 


0040 - 0056 


No exponentiation FIX F * X 


XPOWF 


0057 - 0071 


Neither FLOAT FIX nor FIX FIX 


POW2F^l 
XPOWFJ 


0040 - 0087 


No Log e x 


LOGEF 


1996 - 1998 


No e x 


EXPEF 


1993 - 1995 


No exponentiation FLOAT FLOAT 


POW1F 


1831 - 1839 


f Exponentiation FLOAT FLOAT 


powif"! 




No^ 


Log 1Q x 


LOGF > 


1831 - 1890 




t_Log e x 


LOGEFJ 






'"Exponentiation FLOAT FLOAT 


powif" 






No- 


10 x 

[_e x 

'"Exponentiation FLOAT FLOAT 
Log 10 x 


EXPF 
EXPEF ^ 

powif" 

LOGF 


> 


1831 - 1839 


No" 


Log e x 

10 x 

e x 
v. 


LOGEF 

EXPF 

EXPEF_^ 


- 


1831 - 1945 



Any subroutines required for evaluating functions must be incor- 
porated into the system by the user. Any number of function 
subroutines (limited only by storage capacity) may be used in any 
one program. 



Subroutines added to the system by the user for the purpose of 
evaluating functions operate in a manner similar to that of the 
built-in subroutines. When a function name is encountered in a 
FORTRAN program, a symbolic entry to the subroutine is compiled 
and the arguments of the function are stored in locations allocated 
for temporary storage. 
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The function subroutines must be prepared in either 
Five-instructions-per-card Absolute: 



g word i g 
. □ 



OOjOOOOIOOOO 

1 2 , 1 4 5 1 1 7 I 9 10 

1 1,1 1 1 1)1 1 1 1 



2 2(22 2 2,2222 
IDENT 

3 3i3 3 3 3<3 3 3 3 
WORD 

4 4,4 4 4 4J4 4 4 4 

55>5 5 5 5|5555 

1 1 

66'6 6 6 6'6 6 66 

1 1 

7 7)7 777)777 7 

8 8!b 8 8 8<8 8 8 B 

1 1 

9 9'9 9 9 9|9 S 9 9 

I 2 '3 4 5 II I 9 10 



WORD 2 [] 
D 



oo;o O'O 

II i:il3 M IS ISJU II II 21 

1 1'1 1 1 111 11 1 

I 

2 2l2 2 2 2'2 2 2 2 

FIRSfT 

33133 3 3)33 3 3 

INSTRUCTION 

4 4[4 4 4 4i4 4 4 4 

1 1 

5 5>5 5 5 5'5 5 5 5 

1 1 

66)6 6 66)6666 

1 1 

77'7 77 7'7 77 7 

1 1 

88188 8 818 8 88 

1 1 

3 9)9 9 9 9)9 99 9 

II 12 13 14 IS 16 17 IS IS 20 



WORD 3 Q 

D 



OO'OOOOiOOOO 

22)22 24 25 2t l 27 21 29 30 

1 HI 1 1 l)l 1 11 

2 2)2 2 2 2i2 222 
SECOND 

33133 3 3)333 3 

INSTRUCTION 

4 4)4 4 4 4i4 4 4 4 

1 ' 

55155 55)5 555 

1 ' 

B 6)6 6 6 6^6 6 8 B 

1 ' 

7 7.7 7 7 7j7 7 7 7 

1 1 

8 8>888 8>8 888 

1 1 

9 9)9 999)999 9 

il 22 2! 24 2b X 27 2i 2! 30 



WORD ■* g 
D 



o o;o ooooooo 

3JI33 34'3Sm)37MSS«! 
1 ill 11 1M 1 1 1 

) 

22|222 2i22 22 

THIRD 
3 3'3 3 3 3<3 3 3 3 

INSTRUCTION 
44,444414444 
1 ' 

55l5 55 5i555 5 

1 1 

6 6)6 6 6)6 6 6 6 

77^7 7 717777 

1 1 

8 M 8 8 8)8 8 8 8 

] 1 

9 9|9 9 S 9)9 9 9 9 

3I323334J5M37S33S40 



WORD b g 

D 



OO'OOOOIOOOO 

41 42^3 44 45 4SJ47 41 49 SO 

i;i i ll;i 1 1 1 
22)222212222 

iFOURTH 

3 313 3 3 3,3 3 3 3 
INSTRUCTION 

4 414 4 4 4)4 4 44 

1 ) 

55)5 5 551555 5 

; 

66166666666 
i ' 

77)777 7i777 7 



9 9)9 99 9!9 999 

41 42 43 44 45 48 47 44 46 ~ 



word e g 

D 



oo;ooooioooo 

SI 52153 54 55 5B|S7 51 59 60 
11)1 1 11)1 1 1 1 

I I 

2 2)2 22212 2 22 
FIFTJH 

3 3>3 3 3 3i3 3 3 3 
INSTRUCTION 

4 4i4 4 4 4l4 4 4 4 

i i 

55)5555)5 555 
1 1 

6 6166 6 616 6 66 

1 1 

7 7)77 7 717 777 

1 1 

8 8)88 8 8)88 88 



SI 52 63 (4 63 M 67 CI n 70 



9 9)9 999)9 9 99 
5253545556 57 5I» 



LOCATION 

OF 

INSTRUCTION 



010 



FOTOO 



111 1 

? 
2,2 2 

I 

313 3 
% 
4(4 4 

5?5 5 
I 



7 7 77 



oeloi 



1 lil 1 

2 2,2 2 

? 

3 313 3 

C 

4 4)44 

Q 

5 5i5 5 

•P 

6 6,6 6 

D 

7 7|7 7 



9999 

(213 64 65 « 17 It 



00 



0000 

73 74 75 71 
1111 

F 
2222 

O 
3333 

U 
4444 

R 
5555 

T 
6666 

H 
7777 

8888 



0000 

77 71 71 10 
1111 

F 
2222 

I 
3333 

F 
4444 

T 
5555 

H 
6666 

7777 

8898 



99 

73 74 75 76 77 71 7» 10 



or SOAP II Symbolic: 



CtBDNO. | J |,LOCATION, 4 [iS|, 1 '>S3EMBI.ED INSTRUCTION ,J |„T|, t S| n LOCUTION 



INSTR MOD T. 



„T „IN9TR ADOR,, „T „ 



REMARKS 



0i0 0|00 00 

1 2^3 4 5 6(7 t 9 10 
1 l)l 1 11|1 1 1 1 



22,2 2 2 2|2 2 22 

1 I 

3313 3 33133 3 3 



ST ANOARD 

LOAOING 

COOE 



6 616 6 6 616 6 6 6 

I I 

77)77 771777 7 



9919 99 919 999 

I 2l] 4 5 8|7 I 9 



000000 

I 12 13 14 15 16 
111111 

222222 
333333 



666666 
77 77 77 



999999 

II 12 II U IS 16 



0000 

17 I! 19 20 
1111 

2222 
3333 



OOiOOOOjOOOO 

21 J?'j3 24 23 26.27 21 29 30 

n|i 11 1,1 11 1 

1 

22i2 2 2 2,2 222 

I 
3 313 3 3 3133 3 3 



6666 
7 777 



9999 

W IB 19 20 



I I 

I I 

24 |L0CATI0N|6 O O 



6 S|6 6 6 616 6 6 6 

I I 

7 7J7 7 7 7l7 7 7 7 



i I 

9 919 99919 9 99 

21 72|2I 2< 2S 2t<27 JB 29 30 



0|0 OtO 

II 32|13 34 35 36137 38 39 40 

1 lit 1 1 in 1 1 1 

I I - 

2 2|2 2 2 2122 2 2 

I I 

3 313 33 3133 3 3 



661666 616 6 66 

I I 

7 717 7 7 7l7 7 7 7 

I I 



9 9l9 9 9 9l99 9 9 

31 l?b) M 35 »l37 31 39 40 



OjOOOO 

43 44 4S 46 47 

mill 



ill 1 



OiOOOO 

S|ls2 53 54 55 
ill 1 1 1 



010 00 

57J5I 59 60 tl 

mill 



0000000000 

» 64 65 « 67 69 69 70 71 72 
111111111 1 



4)44 4 4 
515 55 5 



DATA 
AODRESS 



4|4 4 44 



5155 515555 



616666 

I 
7177 7 7 

I 
818 88 8 

I 
919 999 

I]l44<5 46 47 



616 6 
7l7 7 



616666 

1 

717 7 77 



gl8 9 99 

illSi 53 54 55 



INSTR 
AODRESS 



4)4 4 4 4 

I 
515555 



4444444444 

5555555555 



616 6 66 

I 

7'7 7 7 7 

I 



6666666666 
777777777 7 



9999999999 



919 9 99 

57l5t 59 60 61 b|<3 64 65 66 67 66 61 70 71 72 



and must always be entered into the system during the assembly 
phase of the operation (i. e. , on the second pass). A symbolic 
subroutine name, encountered more than once during the assembly 
phase, will always be assigned the same absolute drum address. 

Subroutines in Abs olute Five-instructions-per-card Format 

If the five-instructions-per-card format is to be used, a SOAP II 
synonym card (equating the symbolic name of the subroutine with 
its starting drum address) must be prepared for each subroutine 
to be added. The synonym cards should follow the last five- 
instructions-per-card subroutine when entering the subroutines 
into the system. 
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The subroutines themselves may be located on the drum 
immediately following the area used for the table of subscripted 
variables (see page 11). To obtain the starting address of the 
first subroutine, count the number of locations reserved for 
subscripted variables in the FORTRAN program, and then add 
101 to this number. For example, suppose that in a FORTRAN 
program, there is a DIMENSION statement containing these 
subscripted variables: A(10), B(5, 15), C(3,4). In this example, 
the subscripted variable table will be 97 locations long. Adding 
101 to this figure, a total of 198 is obtained. The first sub- 
routine may start in this location (0198). The second subroutine 
may start in the location immediately following the last 
instruction of the first subroutine, etc. See "Determining 
Available Drum Locations" below, for information regarding 
reservation of locations by the compiler. 

The five-instructions-per-card subroutines are read into the 
system as load cards and require a "12" punch in column 2. 

Subroutines in SOAP II Format 

If the SOAP II format is to be used, no synonym cards are needed 
for the subroutines. The assembly phase will assign available 
locations. 

Subroutines incorporated in the 650 FORTRAN system in symbolic 
(SOAP II) format require a "12" punch in card column 5 for 
correct read-in of the cards. Card columns 7-36 and columns 
73-75 must be left blank. 

Determining The compiling phase of the 650 FORTRAN system sets up a 

Available Drum table of subscripted variables starting at location 0101 and 

Locations continuing for as many locations as necessary. A second table 

for computed GO TO statements starts with location 1710, and sets 
aside, in descending sequence, as many locations as required. 
The final output of the compiler is a block reservation (BLR) card 
for each table making all these locations unavailable to the 
assembly program. The remaining locations between these two 
tables are available for all function subroutines added by the user. 
The subroutines may be in five-instructions-per-card or symbolic 
format. 

NOTE: Overlapping of the subscripted variable and the computed 
GO TO tables will not cause the program to stop compiling. 
However, each of the two BLR cards for the tables will show an 
overlapping of the locations reserved. Subsequent assembly would 
result in a packed drum error halt. 
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When adding symbolic format subroutines to the system, block 
reservation cards must be placed in front of the added symbolic 
subroutines. 

It is possible that the FORTRAN program will have no computed 
GO TO statements or subscripted variables, and therefore, no 
block reservation cards. Obviously, drum locations not used by 
the subscripted variable or computed GO TO statement tables are 
available to the assembly program. 

NOTE: When added subroutines are in both five-instructions-per- 
card and SOAP formats, the following sequence will prevail: 

1. SOAP-PACKAGE assembly deck 

2. Five-instructions-per-card format subroutines 

3. SOAP symbolic format subroutines. 

Determining the To determine the input parameters of a subroutine, let the 

Input Parameters subroutine be a function of "k" variables in the order: V x , V 2 , . . . 

of Subroutines V k ; where V n is an expression, variable or constant. 

The entry conditions are as follows: 

1. Vi is stored by the compiler in symbolic location @1; V 2 is 
stored by the compiler in @2; etc. 

2. The exit instruction is in the distributor. 
The exit conditions are as follows: 

1. If the subroutine is in fixed point, the result must be placed in 
the lower accumulator. 

2. If the subroutine is in floating point, the result must be placed 
in the upper accumulator. 

NOTE: (1) @1 has been assigned the address 0039. @2, @3, etc. , 
do not have specific addresses. Subroutines added by the user in 
SOAP II format need only refer to these storage locations by their 
symbolic names. However, the absolute addresses of these 
locations must be used in function subroutines added in five- 
instructions-per-card absolute format. In this case, the user must 
assign available addresses to these "@" locations by preparing a 
synonym card (with the symbolic name of the location and the 
proper absolute address) for each. Locations following those used 
for the last added function subroutine and before the starting 
location of the computed GO TO statement table are available for 
the "@" locations. 
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(2) When adding function subroutines in five-instructions-per-card 
format, the last card may contain fewer than five instructions. 
The user should punch zeros in the unused instruction fields. The 
corresponding address fields should be punched so as to load 
these fields into the read band or any temporary storage location. 
(Location 0000 is suggested for this purpose. ) 

User's Subroutines The user may wish to add to the 650 FORTRAN system function 

Requiring Index subroutines which use index registers. In such a case, provision 

Registers must be made (at the beginning of the user's subroutine) to save 

the existing information in the index registers and to restore the 
original contents after the completion of the subroutine. The 
following built-in subroutines may be called in to accomplish this: 

@4001 - stores the contents of index registers A, B and C in 
temporary storage locations @3003, @3004 and @3005 
respectively. 

@4002 - resets index registers A, B and C from temporary storage 
locations @3003, @3004 and @3005 respectively. 

Instructions in the user's subroutine 



1. The first instruction should store the exit instruction (which 
is in the distributor) in symbolic location @3001. 

2. The second instruction should load the distributor with the 
next instruction and then transfer to symbolic location @4001. 

3. The exit instruction from the user's subroutine should transfer 
to symbolic location @4002. (Subroutine @4002 will reset the 
index registers and then transfer to location @3001 which was 
set to the return instruction to the main program. ) 

Available Temporary The following temporary storage locations are available for user's 

Storage and subroutines: 

Constants 

Symbolic Actual 

Address Address 

@3001 0000 

@3002 1950 

@3003 1990 

@3004 1991 

@3005 1992 

@3006 1989 

@3007 1976 

@3008 1987 

@3009 1988 
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WARNING: If index registers are needed in the user's subroutine, 
symbolic locations @3003, @3004, @3005, and @3006 are not 
available. 

The constants listed below are used in the 650 FORTRAN built-in 
subroutines, and are available for the user's function subroutines. 



Symbolic 




Absolute 


Address 


Contents 


Address 


@2001 


10 0000 0051 


0089 


@2002 


50 0000 0000 


0090 


@2003 


00 0000 0060 


0091 


@2004 


10 0000 0000 


0092 


@2005 


51 0000 0000 


0093 


@2006 


52 0000 0000 


0094 


@2007 


00 0001 0000 


0095 


@2008 


43 4294 4850 


0096 


@2009 


99 9999 9999 


0097 


@2010 


00 0000 0051 


0098 


@2011 


00 0000 0001 


0099 
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CHAPTER EC- PROCESSING THE SOURCE PROGRAM 



This chapter includes the necessary information and instructions 
for processing a 650 FORTRAN source program to obtain a 650 
machine language object program. The first section of the chapter 
deals with the preparation of statement cards, and subsequent 
sections constitute operator's instructions and notes for each of 
the two phases of the 650 FORTRAN system. 

Source programs stated in the FORTRAN language may be written 
on standard FORTRAN coding sheets, IBM form X28-7327, as 
illustrated on page 4 . The use of the coding forms is encouraged 
to avoid programming errors and to facilitate the transcription 
of the FORTRAN statements to cards. These forms may be 
obtained through local IBM sales representatives. 



Preparing the 
Statement Cards 



650 FORTRAN statements are punched in FORTRAN statement 
cards (IBM 888157), as shown below, using an IBM Card Punch. 



C^as., 



O'D 

1 1 2 3 4 3 

I 1 ! t 1 t 
I 
2|2222 

3I3 3 3 3 

4,44 4 4 
5l5 5 5 5 

6*6 6 S 6 

I 
717 7 7 7 

8 8 8 8 9 

919999 



FORTRAN STATEMENT 



d b 0T0T0T0T 

7 I 9 10 1112 13 14 15 IS 17 19 19 » 21 2! 23 24 23 X 27 2t 29 30 31 32 3} 34 J5 31 17 3 M 40 41 42 43 44 4S 41 41 4t 49 SO SI 32 53 54 55 59 5! 54 59 SO II S2 13 W 55 M B! « 19 TO 71 72 13 74 75 n 17 71 79 U 

i ' ' i " ii i « 1 1 in 1 1 1 ii m 1 1 n 1 1 m i n i m ii m in 1 1 m m 1 1 1 1 i i u i n 1 1 in i it 

222222222222222222222222222222222222222222222222222222222222222222222 22222 
33333333333333333333333333333333333333333333333333333333333333333333333333 
44444444444444444444444444444444444444444444444444444444444444444444444444 
5 55 55 5 55 555 5 5555 55555 55 555 5555555 55 5555555 5 55555555 5 55555555 55555 5 55555555 
66666 6 66 66 6 66 666668866866666666666668666666 6666666666686686666 6 6666666 6866 
7777 7 777 7 7 77777777 77 7 77 777777 7 7 777777777 777777777 7777777 7777777 77 77 777 777 7 

8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 

9 99 9 9 999 99 9999999 99999 9999999999999999999999999999999999 9999 9999999999 9999 1 

I I 9 10 II IJ II 14 I] IS 17 19 19 20 212! 21 24 2S !6 27 29 29 30 31 K 33 14 39 It 37 39 » 40 41 42 4] 44 4S 48 47 41 49 SO SI Si 51 54 55 M 57 51 59 59 SI 52 a (4 65 U « H 70 71 72 73 74 7S 7(77 7J 79 M | 
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Each FORTRAN statement is punched on a separate card using 
the FORTRAN characters, as follows: 



TABLE OF FORTRAN CHARACTERS 



Char 


Punch 


650 


Char 


Punch 


650 


Char 


Punch 


650 


Char 


Punch 


650 


1 


1 


91 


A 


12-1 


61 


J 


11-1 


71 


/ 


0-1 


31 


2 


2 


92 


B 


12-2 


62 


K 


11-2 


72 


S 


0-2 


82 


3 


3 


93 


C 


12-3 


63 


L 


11-3 


73 


T 


0-3 


83 


4 


4 


94 


D 


12-4 


64 


M 


11-4 


74 


U 


0-4 


84 


5 


5 


95 


E 


12-5 


65 


N 


11-5 


75 


V 


0-5 


85 


6 


6 


96 


F 


12-6 


66 


O 


11-6 


76 


w 


0-6 


86 


7 


7 


97 


G 


12-7 


67 


P 


11-7 


77 


X 


0-7 


87 


8 


8 


98 


H 


12-8 


68 


Q 


11-8 


78 


Y 


0-8 


88 


9 


9 


99 


I 


12-9 


69 


R 


11-9 


79 


Z 


0-9 


89 


Blank 




00 


+ 


12 


20 


_ 


11 


30 








90 


= 


8-3 


48 


. 


12-3-8 


18 


- 


4-8 


49 


} 


0-3-8 


38 








) 


12-4-8 


19 


* 


11-4-8 


29 


( 


0-4-8 
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NOTE: On the 24 and 26 Card Punch Machines equipped for special character punching, 
the charactertJ is the equivalent of the character ) ; % is the equivalent of ( ; & is the 
equivalent of + ; and # is the equivalent of =. If desired, the 24 and 26 machines may be 
modified on an RPQ basis (Request Price Quotation) to include the "FORTRAN key tops 
and printing code plate. " This includes (5) equivalent to "— ". 



If a statement is too long to fit in the statement field of a single 
card, it may be continued over as many additional (continuation) 
cards as necessary until the maximum statement length of 125 
characters, (exclusive of blanks) is reached. 

When continuation cards are used, the statement number must be 
carried forward in columns 2-5. A digit 1-9 must be placed in 
column 6 of each continuation card following the first card of the 
statement. This digit can be used in numbering the continuation 
cards of the statement. For example, if the formula 

ROOT=(-B+SQRTF(B**2-4. 0*A*C)) /(2. 0*A) 

were to use continuation cards, it could appear in three cards in 
the following manner: 



COMMENT 


1 


FORTRAN STATEMENT 

1 ,, , 72 


ftTATEMEHT 

NUMBER 

1 9 


| 1 





ROOT = 


j 1 


1 


(- B + SQRTF (B**2-4. 0*A*C)) 


0| 1 


2 


/ (2. 0*A) 
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Numerical, alphabetic and special characters, and blanks may 
be included in the FORTRAN statement. 

Blanks in the statement field are ignored by the FORTRAN system 
and the programmer may use them freely to improve the 
readability of the source program listing. 

Statement Numbers 

As noted previously, fixed point constants from 0001 to 9999 
may be used as statement numbers. The statement number 
field in the cards may not be left blank; if a statement is not 
given a number, zeros must be punched in the statement number 
field (columns 2-5). If a statement number does not require 
all four card columns, the remaining unused columns must be 
filled with zeros. 

Statement Card Format 

The card format for 650 FORTRAN statement cards is shown 
below. Each field of the card is described in the following 
table. 



C-*» 



010 

I 2 3 4 5 

ih 11 1 

I 

2|2 2 22 

313 33 3 

4,4 4 44 

515 55 5 

6*6 6 6 6 
I 
717 777 

8 8 8 8 8 

I 

919999 



FORTRAN STATEMENT 



0|0 

7 I 3 10 111! 13 14 IS It IT 19 19 20 21 22 23 24 25 26 27 iB 29 30 ]l 32 33 34 35 X 37 11 39 40 41 42 41 44 4S 40 47 41 49 SO 51 52 S3 54 55 58 57 58 51 SO II 62 13 64 89 U 67 H 69 TO 71 72 71 74 75 7! 77 70 79 H 

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 It 1 11 1 11 11 1 1 1 |1 11 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 11 1 1 1 1 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2l2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3'3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 

FORTRAN BLANK 

44444444444444444444444444444 4,4 4444444444444444444444444444444444444444444 

STATEMENT ' COLUMNS 

5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5|5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 

6 6 6 B 6 6 6 6 8 6 6 6 6 6 6 8 8 6 6 6 6 6 6 6 6 6 6 6 ik 8 8 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 B 6 6 6 6 6 6 6 6 

7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 

8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8|8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 
99999999999999999999999999999 9'9 9999999999999999999999999999999999999999999 

7 t 9 ID II 12 13 14 IS 16 17 IS I! 20 21 22 23 24 2S 20 V 28 29 30 31 32 J! 34 35 «(JJ 30 39 40 41 42 43 44 45 49 47 49 49 50 51 52 51 54 55 5! 57 5! 99 60 II 62 03 64 65 H 07 60 09 70 71 72 73 74 75 78 77 78 7J 10 
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Card 
Columns 


Description 


1 


An alphabetic C (or any non-zero punch) in this 
column indicates a comments card, which will 
be ignored during processing. A zero indicates 
a statement to be processed. This column must 
have a punch in it. 


2-5 


Statement number field may be any number from 
0000 to 9999. This field must contain numerical 
punches. 


6 


Used to indicate continuation cards. A zero 
indicates first card of a statement regardless of 
whether the statement uses one or more cards. 
A non-zero punch from 1-9 indicates a continuation 
card. This field must contain a numerical punch. 
Comments cards must contain a zero punch in 
this column. 


7-36 


The statement. Numerical, alphabetic, and 
special characters, and blank columns are all 
acceptable in this field. 


37-80 


Blank columns. 
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Operating 
Instructions: 


Console Setting 


s 






650 FORTRAN 
(Compilation) 
Phase 


Storage Entry: 


70 1952 9999 (or 00 0000 0000 if ( 
deck is already loaded). 




Switches: 


Programmed 

Half Cycle 

Control 

Display 

Overflow 

Error 




STOP 
RUN 

RUN 
UPPER 
SENSE 
STOP 




Operation 









1. Ready 650 Console with proper settings; insert 650 FORTRAN 
control panel into 533; feed blank cards in the punch hopper. 

2. Ready read hopper with 

a. 650 FORTRAN Compiler deck 

b. FORTRAN statements cards 

3. Depress Computer Reset key; Program Start key; and, when the 
533 read hopper empties, End-of-File key. 

The 650 will load the 650 FORTRAN Compiler deck and will 
automatically start reading the FORTRAN statement cards. Each 
FORTRAN statement card read will immediately be punched out 
as a comments card. Behind the punched comments card will be 
all the SOAP symbolic instructions compiled from that FORTRAN 
statement. This process will be repeated each time until every 
FORTRAN statement has been read. 

Error Procedure for the Compilation Phase 



The 650 FORTRAN deck is sequentially numbered in columns 
7-10 and is checked for correct sequence while being loaded, 
a card is missing or out of order, a sequence error halt will 
appear on the console: 



If 



01 0000 ABBB 

where A will be either the digit 1 or 2. This digit corresponds 
to the phase being loaded (1 for compilation phase, 2 for the 
assembly phase). The BBB number (3 low-order digits) of 
the halt indicates the last card in correct order. 
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If the error occurs in the compilation phase, clear the read 
hopper, correct the sequence, and reload, starting at the 
beginning of the deck. 

Other than the sequence error stop, no programmed stops are 
included in the compilation phase. Therefore, it is extremely 
important that the user follow exactly the rules for writing 
FORTRAN statements. 

It is possible for the machine to stop because of (1) a read error 
(blank or illegal punch) in columns 1-6 of a statement card, or (2) 
an incorrectly punched FORTRAN statement causing the compiler 
to attempt an illegal operation (Branch Distributor operation on 
other than 8 or 9, or entering a loop causing an illegal address 
and a storage selection light, etc. ). If a machine stop does occur, 
remove the cards from the read hopper and stacker, and run out 
the cards still in the read unit. If corrections can be made 
immediately, (1) reload the read hopper with the corrected card 
and all of the remaining cards of the program, and (2) transfer 
to location 1999 and depress the Program Start key. 

NOTE: Under certain circumstances, such as a continuation 
card in a lengthy arithmetic statement, part of the statement 
containing the error may have been compiled and punched out 
before the error was encountered. In this case, clear the cards 
from the punch hopper and remove all cards up to and including 
the last comments card(s). 

If the error occurred on a continuation card, reload the read 
hopper starting at the first card of the statement, i. e. , reprocess 
the entire statement rather than restarting at the error card. 

Completion of the Compilation Phase 

The last FORTRAN statement to be compiled must be an END 
statement card. Immediately after the END statement has been 
processed, the machine will punch a block reservation card 
with "BLR" in the operation code columns, and blanks in both 
the data and instruction address columns. This card is required 
for the SOAP-PACKAGE assembly phase and must remain in 
the exact position as punched out in the output deck. The purpose 
of the blank BLR card is for punching out constants contained in 
the FORTRAN source program. One or two additional block 
reservation cards may also be punched depending on whether 
subscripted variable and/or GO TO tables have been established. 
See "Determining Available Drum Locations," page 31. 
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Rearranging Output Deck 

1. Run all cards out of the punch feed and discard the first and 
last card. The remaining cards, in order, are: (1) each 
FORTRAN statement (comment card format) and the compiled 
SOAP symbolic instructions for that FORTRAN statement, 

(2) the blank BLR card, and (3) the block reservation card(s), 
if any. 

2. Rearrange the card order so that the subscripted variable 
and/or GO TO table(s) block reservation card(s), if any, 
are now in front of the deck. 

NOTE: The assembly phase of the 650 FORTRAN system performs 
part of the compilation. Accordingly, the output from the 
compiling phase may contain cards which are blank except for 
numerical punches in the comments field (columns 63-72) or special 
characters in the operation field (columns 48-51) or data address 
field (columns 51-56). These cards are a necessary part of the 
system and must not be discarded under any circumstances. 
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Operating Console Settings 

Instructions: " 

SOAP-PACKAGE Storage Entry: 70 1952 9999 
(Assembly) Phase 

Switches: Same as for 650 FORTRAN (Compilation) Phase. 

Operation 

1. Ready the 650 Console with proper settings; insert the 650 
FORTRAN control panel into the 533; feed blank cards in the 
punch hopper. 

2. Ready 533 read hopper with 

a. SOAP-PACKAGE Assembly deck. 

b. Function subroutines in five-instructions-per-card 
absolute format, if any. 

c. Entry point synonym cards for subroutines in absolute 
format, if any. 

d. Block reservation cards, if any. 

e. Function subroutines in SOAP II symbolic format, if any. 

f. Compiler output in SOAP symbolic format. 

g. One blank card, if it is desired to punch out the availability 
table after assembling. (The availability table can also 

be obtained by manually transferring control to location 1900 
at completion of assembly. ) 

3. Depress Computer Reset key, Program Start key and, when 
the 533 read hopper empties, the End-of-File key. 

4. Run cards out of the punch feed. Discard the first and last 
cards. The remaining cards, all in five-instructions-per-card 
format, are 

a. Object program load routine. 

b. Package of built-in subroutines. 

c. Subroutines entered in five-instructions-per-card format. 

d. Subroutines entered in SOAP II symbolic format. 
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e. Object program with the last instruction a transfer to 
the starting instruction of the object program. 

f. Availability table, if specified. (These table cards must 
be removed before running the object program. They are 
identified by a "12" punch in column 41. ) 

Programmed Stops 

As stated in the "Error Procedure for the Compilation Phase" 
page 39, the error halt 

01 0000 2BBB 

indicates that a card is missing or out of order while the SOAP- 
PACKAGE assembly deck is being loaded. The BBB number 
(3 low-order digits) of the halt indicates the last card in correct 
order. 

If the error stop occurs, clear the 533 punch hopper and discard 
the output. Then clear cards from 533 read hopper, correct 
sequence of deck, and reload, starting at the beginning of the 
deck. 

Other programmed stops in this phase are identified by Console 
address lights, as follows: 

Address Lights Reason for Stop 

0111 Symbol table full. 

0222 Drum packed. 

0333 Illegal SOAP II symbolic card 

has been encountered in user's 
subroutine. Depress Program 
Start key to continue assembly. 

0999 Load card has been encountered 

during assembly of compiled 
instructions. 

Error Procedure 



Programmed stop 0111 indicates the symbol table capacity of 300 
has been reached. This stop should rarely occur without first 
having obtained a programmed stop 0222 — packed drum. However, 
if this stop is encountered, the following correction procedure 
is available. 
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If, in the source program, the user has assigned 
statement numbers to statements other than those which 
are referenced by other statements, the statement numbers 
can be deleted from the non-referenced statements. 
Statements that do not have numbers will not be included 
in the symbol table. 

If the above procedure does not eliminate the stop, the source 
program must be rewritten and divided into smaller programs. 

Programmed stop 0222 indicates drum capacity has been reached 
and requires that the source program be rewritten, and divided 
into smaller programs. 

Programmed stop 0.333 indicates an illegal operation code or 
location address in user's subroutine and will insert blanks in 
the instruction and its respective address. The output card will 
not be punched as a load card. The instruction can be corrected 
after the program has been assembled by making use of the 
availability table provided by the SOAP-PACKAGE assembly 
phase. 

Programmed stop 0999 indicates that placement of the user's 
five-instructions-per-card absolute subroutine is out of sequence. 
See "Operating Instructions — SOAP-PACKAGE (Assembly) 
Phase, Operation 2. " 

Assembling more than one Program 

If more than one program is to be assembled, the SOAP- 
PACKAGE assembly program must be reloaded each time. 
Reloading is necessary because the object program loading 
routine and built-in subroutines are punched directly from the 
assembly program deck while it is being loaded. The procedure 
to be followed in reloading the assembly program is the same 
as the initial loading above. 
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CHAPTER IE- USING THE OBJECT PROGRAM 



This chapter contains the information and instructions necessary 
for utilizing an object program produced by the 650 FORTRAN 
system. The first section deals with the preparation of data 
cards, and the second section consists of operator's instructions 
and notes for running the object program. 



Preparing Data 
Cards 



As indicated in Chapter II, a READ or PUNCH statement in the 
source program will cause the object program to read or punch 
data cards until the complete List has been processed. The 
reading and punching of data is accomplished by built-in 
subroutines provided in the assembly phase. 



Data Cards 

Data cards are identified by a "12" punch over card column 73. 
One to seven ten-digit words of data may be punched on one 
card. 

For example, a data card for a READ, I, J, K statement with 
a value of -1 for I, +2 for J, and +3 for K would be punched as 
follows: 



jOOGCiOOOOlpOOOOOGOOStoOOOOOOOO'S 



imiiuio 

1 2 3 4 1 S 7 S i ID 
1111111111 

2222222222 
33 33 
4 4 J 4 4 
55 55 
6666666666 
7 7 7 7 7 7 7 7 7 7 



9999999999 

1 2 3 4 S 6 7 « 8 10 



llllllliio 

II li I] 14 I] IS 17 18 19 20 
1111111111 

222222222| 
33 33 
44 J" 44 

55 55 
6666666666 
7777 777777 



9999999999 

II 12 II 14 IS IS II II 19 20 



00 00000 00000 000 0000000000000000000000 00000000009 

21 22 23 24 25 26 27 28 29 JO 51 32 33 34 35 39 37 38 39 to 41 M 41 44 45 46 47 48 49 50 11 52 53 54 55 56 57 58 59 60 61 82 13 64 85 66 61 68 69 70 71 12 13 74 75 78 77 78 79 80 
111111111111111111111111111111111111111111111111111111111111 

222 2222 2 22 222 2 22 22222 22 2 22 22 2 2 22 2 2 22 22 22 2222222222 2 22 2 22 222 2 
3 3 3 1 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
44 W 444444444444 44444 4444 4444444444444444444444444444444 
5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 5 
6668666666666666 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 
7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7777777777777777777777777777 
838 68383 886863880868886388886 8 838388888088888388868686668866 
939933999999939999939999999999 999399999891999999999999999999. 

21 22 23 24 2! 26 27 28 29 30 31 32 33 34 36 36 37 38 39 40 4142 43 44 45 46 17 48 49 50 51 52 83 54 55 58 !7 58 S9 CO Bl 62 83 64 BJ 66 67 66 89 70 71 72 73 74 75 71 77 78 79 80 



NOTE: The sign of the word is punched in the units position 
of the KHdigit field. 

If the List requires more than one card, i. e. , more than seven 
words of da^a, additional cards are read or punched. 

©ate is punched in the first seven fields of the card (each field 
is ten card columns); There must be a separate group of data 



4& 



cards for each READ statement in a FORTRAN program. All 
seven fields on each card must be filled, except for the last card 
in the group. Because the last card may have less than seven 
fields, the remaining (unused) fields may be left blank. For 
example, the following statements might occur in a FORTRAN 
program: 

DIMENSION A(4, 5), B(2,3), N(4, 1), M(3,4), L(7, 2) 
READ 1, A,B 
READ 2, N,M,L 

There must be two separate groups of data cards, one for A,B 
and a second for N, M, L. Twenty- six words of data are required 
for A and B. Therefore, the first three cards in this group will 
each contain seven words of data and the fourth card will 
contain five words. The second READ statement requires thirty 
words of data. Four data cards will have all seven fields filled, 
and a fifth card will have two fields. It is important to remember 
that the order of data punched in the cards is controlled by the 
READ or PUNCH statement List. The data in a List will be read 
or punched from left to right with arrays in column sequence. 

Output cards will be sequentially numbered by the object program. 
Word eight of each data card will contain this number. For input 
cards, this word may be used for identification purposes if 
desired. 

Negative values are indicated by an "11" punch over the units 
positions of the respective field. 

Form of Data 



Data representing values of floating point variables are punched 
in data cards as floating point numbers of the form . xxxxxxxxPP, 
where PP is the power of 10 with 50 added, to avoid negative 
exponents. 

For example, the floating point value, +45. 26, is punched as a 
ten-digit word starting at card columns 1-10 and appears as 
follow s-:- — 
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I I 

OOOOIIHOOOQOOOOOODOOO'OOOOOOOOOOOOOOO OOOOOOOOOOOOOOO 00 00 0000000000 000 000 00 00 

I J J 4 1 I 7 I I 10 1112 II 14 15 II 17 II II 20 21 22 21 24 a 21 27 21 29 30 31 32 3] 34 35 38 37 31 39 40 41 42 43 44 45 46 41 « 49 50 51 51 51 54 5S :6 51 M S9 EC II 62 61 H 85 60 6! 69 59 70 11 72 13 T4 15 K 17 1| 19 M 

1 1 in i it 11 ii ii i m i ii 1 1 1 1 ii 1 1 ii in n 1 1 1 1 ii 1 1 ii mi i n 1 1 n n 1 1 in ii 1 1 ii n i n 1 1 m 

22122222212222222222222222222222222222222222222222222222222222222222222222222222 

33 3 33333333333333333 3 33 333 3 3 33 3 33 3 333 33333 33 3333333333 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
|44444444444444444444444444444444444444444444444444444444444444*44*4444444444444 
5|555555|555555555555555555 555 55 5 555 5 5 55 55 5 5 55 5 555 55 5 5 5 555 5555555555555555555555 
668|66668866B6686B66BB666866666666666666666666666S666666666666666666666666666666 
777777777777777777777777777777777777777777 777777)77777777 7777777777777 7777777777 
B 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 t 8 8 8 8 8 8 6 B B 8 8 8 8 8 8 8 8 8 8 8 
99999999999999999999999999999999999999999999993999939909999991999999999999999999 

I > J 4 9 I 7 I 10 II 1213 14 13 It 17 II 19 20 21 21 23 24 25 M 27 71 29 30 Jl 5! 33 34 35 JS 37 38 35 K II 47 41 44 IS 44 41 4! 49 50 II i! :.l 54 Si '.( 11 59 59 6j 61 12 S3 6< 95 16 81 89 D3 10 II 11 13 14 15 IS .1 II 19 «l 
IBM 50BI 



The sign of the value (a "12" punch for plus, or an "11" punch 
for minus) is punched in the units position of the word. The "12" 
punch in column 73 designates the card as a data card. Up to 
seven 10-digit words may be punched into each data card. 

Data representing values of fixed point variables are handled 
as integers and are punched in cards as ten -digit words. Any 
unused (high order) positions must be punched with zeros. 

For example, the value, +1234, is punched as a ten-digit word 
starting at card columns 1-10 and appears as follows: 



Hillioooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

I 2 3 4 5 I 7 9 I 10 II 12 13 14 15 IS 17 II 19 20 21 22 21 24 21 28 27 28 28 30 31 32 11 34 IS 39 37 31 39 40 41 42 43 44 45 46 41 48 49 50 51 52 53 54 55 58 57 51 59 69 II 62 13 M 65 66 87 86 II 70 71 72 73 71 75 71 77 71 79 10 

1 1 1 1 1 1|1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 M 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 11 1 

2 2 2 2 2 2 2 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 
33333333| 3 33 333 33 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 
444444444I4444444444444444444 4444444444444 44444444 444444444444444444444444444444 
5555555555555555555555555555555555555555555555555 5555555555555555555555555555555 
EC6666S6666666666666866866666666886666686666666686666868666B6666666B6B6666666666 
7777777777777777777777777777777777777777777777 7777777777777777777777777777777777 
B 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 B 8 8 8 8 8 8 8 8 8 B 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 3 8 8 8 8 8 8 8 8.8 8 8 8 8 8 S 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 
99999999999999999999999999999999999999999909099999999999999991999999999999999999 

1 2 3 4 5 6 7 8 9 10 II 12 13 14 13 19 17 II 1120 2122 2124 25 29 27 28 29 30 31 32 33 34 33 36 31 31 39 40 41 42 43 44 45 46 41 48 49 50 51 52 S3 54 55 53 5! !l 59 68 II 12 63 64 65 M 11 M 19 70 71 72 73 74 15 71 77 71 79 M 



The sign of the value (a "12" punch for plus, or an "11" punch 
for minus) is punched in the units position of the word. The "12" 
punch in column 73 designates the card as a data card. Up to 
seven 10-digit words may be punched into each data card. 
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Operating 
Instructions: 
Object Program 



Programmed Stops 
Established in the 
Object Program by 
the SOAP-PACKAGE 
Subroutines 



Console Settings 

Storage Entry: 70 1952 9999 (or 00 0000 0000 if object program 
is already loaded). 

Switches: Same as for 650 FORTRAN (Compilation) Phase. 

Operation 

1. Ready the 650 Console with proper settings; insert the 650 
FORTRAN control panel into the 533; feed blank cards in the 
punch hopper. 

2. Ready read hopper with entire output of the assembly phase 
and data cards (if required by the program). 

3. Depress Computer Reset key; Program Start key; and, when 
read hopper empties, End-of-File key. 

When the object program has been loaded, the last card of the 
object program deck will transfer control to the first instruction 
of the object program, which is always location 1999. 



Address 
Lights 



Error Condition 



Built-in Subrt. 
Involved 



0001 Negative or zero argument LOGF, LOGEF 

0002 Floating point result EXPF, EXPEF 
* 9. 9999999x1048 



0003 



0011 



0049 



0100 



0501 



Error in floating point 
exponentiation 

Floating point argument 
of zero with negative 
exponent 

Floating point result 
> 9.9999999x1048^ 

Floating point overflow 
or underflow in an 
arithmetic statement 

Floating point number 
to be fixed > 10l0 



POW1F 



POW2F 



POW2F 



Any subroutine 
using floating 
point 

XFIXF 
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Error Procedure 

The various error conditions listed above may result from such 
causes as logical errors or scaling problems inherent in the 
source program, errors in preparing data cards, etc. Depressing 
the Program Start key will cause the 650 to perform the 
instruction contained in the distributor, which will be the 
subroutine exit instruction. The instruction in the distributor 
should be noted as an aid in finding the point in the object 
program where the error was encountered. 
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APPENDIX n 



533 Control Panel Wiring Diagram 



* « S9*»3J3JJIJ»J5 







J 5 3 S * 3 S i J 1 i J i S 8 5 
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APPEND IX ~m 

SAMPLE PROBLEM: MATRIX MULTIPLICATION 

Listing of FORTRAN Source Program Statement Cards 



c 


0000 


RECTANGULAR MATRIX 


c 


0000 


MULTIPLICATION 
DIMENSION A (4,5) , B(5,3) 
READ 1 , A,B 
READ 1 , N,M,L 




7 


DO 4 Ja 1 »N 




1 


DO 4 I = 1 ,M 




6 


SUM s 0»0 




2 


DO 3 K= 1 ,L 




3 


SUM = SUM-fA( I iK)#(K» J ) 




4 


PUNCH 1 « SUM, I , J 




B 


END 



Note: This sample problem provides a test case for the system. 
It is recommended that the source program be processed through 
each phase of the system and the output for each step compared 
with the appropriate listings in this appendix. 
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Listing of Output from Compilation Phase of 650 FORTRAN: 
The Program in SOAP II Symbolic Form 





BLR 


0101 


0135 


OOOOOOOOOO 


1 




RECTANGULAR 


MATRIX 




1 




MULTIPLICATION 




1 




DIMENSION A(4i5)iB(5i3) 


1 




READ 1 


A, 6 






SI 


LDD 




READF 


OOOOOOOOOO 




) 








0040050100 












OOOOOOOOOO 












OOOOOOOOOO 












OOOOOOOOOO 












OOOOOOOOOO 












OOOOOOOOOO 












OOOOOOOOOO 












OOOOOOOOOO 












OOOOOOOOOO 












OOOOOOOOOO 




* 
) 








OOOOOOOOOO 
0050030120 

oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 




# 








oooooooooo 




LDD 


*2 


- 




oooooooooo 


1 




READ 1 


. N.M 


»L 




*2 


LDD 




READF 


oooooooooo 




) 








7500000000 












oooooooooo 












oooooooooo 












oooooooooo 












oooooooooo 












oooooooooo 












oooooooooo 












oooooooooo 












oooooooooo 












oooooooooo 




* 
) 








oooooooooo 

7400000000 

oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 




* 
) 








ooooooooooo 
OOOOOO ooouo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 
ooooooooooo 




* 








oooooooooo 




LDD 


+ 7 

DO 4 J = 


1 iN 




oooooooooo 


+ 7 


RAA 


0001 
DO 4 I = 


S3 
1 iM 




oooooooooo 


+ 1 


RAB 


0001 

SUM » 


$4 
.0 




oooooooooo 


+6 


RAU 


» 






oooooooooo 




STU 


SUM 
DO 3 < = 


+ 2 

1 .L 




oooooooooo 


+2 


RAC 


0001 


S5 




OOOOOOOOOO 






SUM=SUM+A< I 


. K )*8(K 


• J ) 


+ 3 


RAL 


8007 






OOOOOOOOOO 



STL 


-1 




OOOOOOOOOO 


RAU 


8005 




OOOOOOOOOO 


MPY 


* 




0000000005 


ALO 


-1 




OOOOOOOOOO 


SLT 


0004 




OOOOOOOOOO 


ALO 




8002 


OOOOOOOOOO 


RAU 


011b 




oooooooooo 


STU 


) 1 




oooooooooo 


RAL 


8006 




oooooooooo 


STL 


-1 




oooooooooo 


RAU 


8007 




oooooooooo 


MPY 


# 




0000000004 


ALO 


-1 




oooooooooo 


SLT 


0004 




oooooooooo 


ALO 




8002 


oooooooooo 


RAU 


0096 




oooooooooo 


STU 


)2 




oooooooooo 


RAU 


)2 




oooooooooo 


FMP 


) 1 




oooooooooo 


FAD 


SUM 




oooooooooo 


STU 


SUM 




oooooooooo 


AXC 


0001 


S5 


oooooooooo 


RSL 


8007 




oooooooooo 


STD 


K 




oooooooooo 


ALO 


L_ 




oooooooooo 


BM I 


+ 4 


+ 3 


oooooooooo 




PUNCH 1 


SUM. I , 


J 


LDD 

) 




PNCHF 


oooooooooo 

8284740000 

oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 








oooooooooo 
oooooooooo 
oooooooooo 


* 

) 






oooooooooo 

6900000000 

oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 


) 






oooooooooo 

71 OOOOOOOO 
OOOOOOOOOO 
OOOOOOOOOO 

oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 


# 






oooooooooo 


LDD 




- 


oooooooooo 


AXB 


000 1 


$4 


oooooooooo 


RSL 


8006 




oooooooooo 


STD 


I 




oooooooooo 


ALO 


M 




oooooooooo 


BMI 




+ 6 


oooooooooo 


AXA 


0001 


S3 


oooooooooo 


RSL 


8005 




oooooooooo 


STD 


J 




oooooooooo 


ALO 


N 




oooooooooo 


BM) 


+ 8 
END 


+ 1 


oooooooooo 


HLT 


0000 


8000 


oooooooooo 


BLR 






oooooooooo 
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100000083 
100000084 
100000085 
100000086 
100000087 
1000O0088 
100000089 

1 00000090 

1 00000091 

1 00000092 
100000093 
1 00000094 
100000095 
100000096 
100000097 
1 00000098 



6901521820 
6901731823 
690144 1822 
8200010160 
2000390142 
1502068002 
6080070199 
6000960151 
2102100213 
4603040254 
6901751822 
6680060217 
6680050369 
00400501 00 
0000000147 
00000C0147 



Listing of Output from Assembly Phase of 650 FORTRAN: 
The Object Program in Five-per-Card Format 



6501550158 

6901761820 

6501970150 

6001000205 

6080050149 

6001 150219 

1902520222 

2103060159 

5800010)69 

6901571821 

6502280181 

£402690322 

2401 7B0231 

0050030120 

0000000138 

0000000 138 



690161 1822 
6502290182 
6901531822 
2102100163 
1902020172 
2101 740177 
1500390193 
6003060261 
6680070227 
6502600263 
690 184 1822 
1 501380243 
1501 790233 
0000000210 
00000001 78 
0000000 1 78 



6501640167 
6901651822 
6901561823 
8800010169 
1500390143 
6580060235 
3500040253 
3901740224 
2401800183 
6901661822 
6901871823 
4601460204 
4601360154 
0000000004 
00000001 79 
00000001 79 



6901701822 

650186014 1 

8000010162 

658007021 1 

3500040203 

2000390192 

1502568002 

3202100137 

1501470201 

6503190272 

5200010160 

5000010162 

0100008000 

0000000005 

0000000269 

0000001999 



1999015201 
0170017301 
0141014401 
0154020402 
021 101420 1 
0203020602 
0192019902 
0256015101 
0137021301 
0201030401 
0272017501 
0160021703 
0162036902 
0155016402 
0197016802 
0000000000 



5801610 167 
7601620185 
5001530156 
0501630254 
4901720143 
1901770235 
2201930253 
5902610224 
6902270183 
5702630166 
8101640187 
2202430146 
3102330136 
6002520202 
2802290319 
0000001830 



Note: The above listing does not include the SOAP-PACKAGE 
cards produced in the Assembly Phase. Accordingly, the card 
serial numbers (word 1, columns 8-10) begin at 083. 



Actual Problem and Answer Matrix (Input and Output Data) 



16 


13- 


7- 


2 


5 


2 


1 


8 


lO- 


12- 


1 


6- 


15 


ll 


18 


14 


17 


3 


2- 


9 



3- 

8- 
6 
12 
2 



5 


7 




48 


100 


13 


4- 




110- 


69 


4- 


10 


= 


303 


262 


3 


5- 




_1 66 ~ 


192 


9- 


11 









139 

8 

324 

169 



Listing of Input Data Cards for Object Program 



1600000052 
1 700000052 
1 1 00000052 
8000000051- 
3000000051 
00000003 



2000000051 

7000000051- 

2000000051- 

6000000051 

9000000051- 

0000000004 



100000005 1 
H000000051 
b00000005 1 
1200000052 
700000005 1 
0000000005 



1400000052 
1 500000052 
1200000052- 
2000000051 
4000000051- 



1300000052- 

3000000051 

1800000052 

5000000051 

1000000052 



1000000051 
2000000051 
9000000051 
1300000052 
5000000051- 



6000000051- 
1 000000052- 
3000000051- 
4000000051- 
l 100000052 



0000000002 
0000000003 
0000000004 
00000O0005 
0000000006 
OOOOOOOOOl 



Listing of Output (Answer) Cards from Object Program 



4800000052 
1 1 00000053- 
3030000053 
1660000053- 
1 000000053- 
6900000052 
2620000053- 
1 920000053 
1 390000053 
8000000051 
3240000053 
1690000053 



OOOOOOOOOl 
0000000002 
0000000003 
0000000004 
OOOOOOOOOl 
0000000002 
0000000003 
0000000004 
OOOOOOOOOl 
0000000002 
0000000C03 
0000000004 



OOOOOOOOOl 
OOOOOOOOOl 
OOOOOOOOOl 
OOOOOOOOOl 
0000000002 
0000000002 
0000000002 
0000000002 
U000000003 
0000000003 
0000000003 
0000000003 



0000000000 
0000000000 

oooooooooo 

0000000000 

oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 



oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 



oooooooooo 
oooooooooo 
ooo ooo oooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 



oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 
oooooooooo 



OOOOO 10000 
0000020000 
0000030000 
000O040000 
0000050000 
0000060000 
0000070000 
0000080000 
0000090000 
00001 OOOOO 
00001 10000 
0000120000 
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APPENDIXES 



GLOSSARY 



650 FORTRAN System — An automatic coding system for the 
IBM 650 which uses a subset of the original FORTRAN language 
for its source programs and gives optimized 650 machine 
language programs as output. 

Assemble — Assign actual machine language addresses and 
operation codes to symbolic addresses and operation codes. 

Compile — The generation of a series of machine language 
instructions to execute the operation indicated by the source 
program statements. 

FORTRAN Language — Statements closely resembling the 
language of mathematics which are acceptable to a computer as 
a source" program. 

FORTRAN Program — A source program written in the symbolic 
language of FORTRAN. 

FORTRAN System — An automatic coding system originally 
designed for the IBM 704, intended primarily for scientific 
computation. In addition to the 704, this system has been 
adapted to the following IBM Data Processing Systems: 650, 
705, 709, 1620, 7070, 7080, 7090. 

Object Program — The machine language program which is the 
final output of an automatic coding system. 

Optimize — To select the proper memory location so as to have 
the minimum amount of access time between each instruction. 

Source Program — The input to an automatic coding system. In 
the 650 FORTRAN system the source program consists of 
FORTRAN statements. 
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APPENDIX'S 



650 FORTRAN (Compilation) Phase 



Overall Initialization 





READ 
Statement 



PACK 



/Set up table of Constants^ 

insert symbol to stmnt \ CONSTANT 

according whether constant x 

is Fix or Fit Ft and showint 
Sentry in Constant Table, 



SCAN STATEMENT 
Branch if constant is found. 
Set up table of parentheses, 
position of « sign and set 
mode of stmnt (Fix or Fit Pt). 



ARITHMETIC 



STATEMENT 



Punch stmnts as comments 

cards. Convert operators to 

internal code. 

Test arith or non-arlth 

statements. 



NON-ARITHMETIC 



STATEMENT 



LEVEL PARENS 




Rank sets of parentheses in 
table with innermost set in 
statement getting highest 
Ranking — * to last set of 
parens lowest. 



»<4 

FIND DEEPEST 




LEVEL 
Find innermost set of Paren- 
theses and set up indicators 
corresponding to that portion 
of the statement. 



No Paren in Statement. 




MAKE OPERATION 



TABLE 
Set up table with entry for each: 
operator between the limits 
under consideration for compil-. 
ing with the operator and its 
operand in each entry. 



COMPILE 



PRE COMPILE 



Compile instructions for 
the combination of 
operators determined from 
L ANALYZE OP TABLE. 



Set indicator to show if 
accumulator is zero, get 
Operand, the two Operators 
and mode of sub-expression 
which will be compiled. 



ANALYZE OP TABLE 



MULTIPLE 



Compare entries in Op Table 
to find a combination of two 
adjacent operators from which 
instructions can be compiled. 



ENTRY 



FIND NEXT PAREN 



OP TABLE OVERFLOW 
Where there are over 15 
Operands in the portion of the 
stmnt under consideration of 
any arguments of a subroutine 
to be stored. 



Punch store instruction if 
necessary and set indicator 
representing location of next 
set of Paren to be compiled. 



SINGLE 



OP TABLE 



Test next left character. 
Is it a Right Paren? 




NO 



If next left is operator, compile 

RAU or RAL. 
If subscript, compile instructions 
to get subscripted data. 
If function, compile entry and 
_j$o£e_ajsum£nt 



IS THERE MORE 



TO COMPILE? 



Is Fix Point whole expression? 
Is Fix Point argument in 

F loat Point statement? 

Is Float Point whole expression? 




.JJFXSIB&. 



Is this an IF statement? 
Is left side subscripted? 
Compile store Instruction. 



NO 

QF EXPRESSION ILL. 
■YES 



Compile and Punch 
NZE and BMI instruction. 



NEXT 



NO 



If this statement ENDs a DO 
Loop compile Instructions to 
increment and test Index, 




TERM DEFINITION 

Operator = Operation symbol e.g., 
+ 1 -, *j /. ** 

Operand =« Variable, Constant, Sub-expression 
or function to the right of an operator 



Thus in V - -A * B + SQRTE 
-, *, + are operate! 

Operand for - is A 
» * is B 
" " + is SQRT(C) 
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— __ 


















Compute addreES to go to 
appropriate Subroutine. 
























STOP 








Compile and Punch HLT 
instruction with I-Address 
= L Address 






w 












Store 3 Branches 






Q 


5Y 








J 




GO TO (Unconditional} 




















Compile NOP to stmnt number 
Indicated by the GO TO stmnt. 






CONTINUE 














Compile NOP Instruction. 






GO TO (Computed) 














PAUSE 






Compile RAL (Go To Table 

start Address) 

SLO i '8002 

NOP instruct. (Go To Table) for 

each possible exit in GO TO 

stmnt. 












Compile HLT Instruction with 








DIMENSION 






or 0000 if no Stmnt Number. 








READ 






Correct Variable Name and 
Dimensions and enter into 
Dimension Table with location 
at which the array begins. 












Punch Entry and 10 cards with 
Name of Variable or 
DIMENSIONS and subscripts or 
indices specified in stmnt 
(needed in assembly phase). 






DO 












PUNCH 






1 Store Number of last stmnt in 
DO Loop. 

2 Store Index Variable name in 
•table and m's. 

3 Compile instructions to initial- 
ize DO Loop in IR if available 














Same as READ stmnt above. 






END 


— »> 


















Compile HLT 0000 8000, punch 
blank HLR card, Punch BLR 
card if needed, for Dimensions 
and computed GO TO's. 
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SOAP-PACKAGE (Assembly) Phase 



LOAD SOAP-PACKAGE DECK 
AND PUNCH PACKAGE SUB- 
ROUTINES. 




RESERVE 

LOCATION ADDRESSES 
CONTAINED IN 
S/CD 



PUNCH 
S/CD 



t Process OP 
IS^^^*^ Code 



/PCHABCONSGSET 
TO PCH AVAIL TABU 
ONNXTCDREAD, 




COMPILE INSTRUCTIONS TO 
GET VARIABLE NAME, DIMEN 
SIONS, ELEMENTS OR INDICES 
COMPILE ENTRY TO READ 
PCH PACKAGE ROUTINE 



STORE OP CODE AND GET 
OPTIMIZING DATA. 



Process 
Location ♦ Address 




/ SET SWITCH TO BY- 
J PASS TEST OF 1ST 
\ COMPILED INSTRUCTIONS , 
\ USERS SUBR. ENTRY. 



* 

is* 

THIS THE 

ENTRY POINT IN A 

JUSERS SUBROUTIt 




CLEAR SYMBOL 
TABLE 



PROCESS LOCATION ADDRESS 
AND ASSEMBLE, 
STORE TO PCH AREA. 



ASSIGN ABCON A LOCATION 
IF NOT USED BEFORE AND 
STORE ABCON TO SYMBOL 
TABLE. 



Ye 5 



Process 
Data \ r Address 

IS 
"THIS AN 
ABCON (*) 




PROCESS DATA ADDRESS 

AND ASSEMBLE, 

STORE TO PUNCH AREA. 



PROCESS INSTR. ADDRESS 
PROCESS I-ADDRESS 
ASSEMBLE AND STORE TO 
PUNCH AREA. 
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